function Fakt(N: in Natural) return Natural is
   f:Natural:=1;
begin
   for I in 1..N loop
     f:=f*i;    
   end loop;
   return f;
End Fakt;

